home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-1297 / AMOSLIST / 000199_amos-request@svcs1.digex.net_Fri Dec 26 19:42:37 1997.msg < prev    next >
Text File  |  1998-06-24  |  8KB  |  254 lines
  1. >From amos-request@svcs1.digex.net  Fri Dec 26 19:42:37 1997
  2. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  3.     by pony-2.mail.digex.net (8.8.8/8.8.8) with ESMTP id TAA25948
  4.     for <mcox@access.digex.net>; Fri, 26 Dec 1997 19:42:36 -0500 (EST)
  5. Received: (from daemon@localhost)
  6.     by svcs1.digex.net (8.8.5/8.8.5) id SAA16831
  7.     for amos-out; Fri, 26 Dec 1997 18:05:20 -0500 (EST)
  8. Received: from pony-2.mail.digex.net (pony-2.mail.digex.net [204.91.241.6])
  9.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id SAA16828
  10.     for <amos-list@svcs1.digex.net>; Fri, 26 Dec 1997 18:05:19 -0500 (EST)
  11. Received: from mail2.desupernet.net (mail.desupernet.net [204.249.184.82])
  12.     by pony-2.mail.digex.net (8.8.8/8.8.8) with SMTP id SAA00126
  13.     for <amos-list@access.digex.net>; Fri, 26 Dec 1997 18:05:17 -0500 (EST)
  14. Received: (qmail 26006 invoked from network); 26 Dec 1997 23:04:59 -0000
  15. Received: from unknown (HELO redrose.net) (mushy-pd@208.7.248.148)
  16.   by 204.249.184.82 with SMTP; 26 Dec 1997 23:04:59 -0000
  17. From: Mush <mushypd@redrose.net>
  18. Reply-To: mushypd@redrose.net
  19. To: Jens Vang Petersen <top_cat@post8.tele.dk>
  20. CC: amos-list@access.digex.net
  21. Date: Fri, 26 Dec 1997 18:08:23 +0500
  22. Message-ID: <yam7299.1189.4301432@mail.redrose.net>
  23. In-Reply-To: <yam7299.2428.1748229464@post8.tele.dk>
  24. X-Mailer: YAM 1.3.5 [020] - Amiga Mailer by Marcel Beck
  25. Organization: Mushroom PD - AMOS Public Domain Library
  26. Subject: Re: Inituition..
  27. MIME-Version: 1.0
  28. Content-Type: text/plain; charset=iso-8859-1
  29. Content-Transfer-Encoding: 8bit
  30. X-MIME-Autoconverted: from quoted-printable to 8bit by svcs1.digex.net id SAA16829
  31. Status: O
  32. X-Status: 
  33.  
  34. It was on the night of 26-Dec-97, when no creatures were stirring, and all was
  35. silent. Suddenly, Jens jumped out from behind a rock and wouldnt stop shouting
  36. about "Inituition.." until I was forced to knock them out:
  37. �-> Hello, GUI help, please..
  38.  
  39. �-> I've found a great way of doing almost everthing I want to do with
  40. inituition
  41. �-> (AGA screens, and easy msg-boxes). Using a combination of the
  42. GUI-extension
  43. �-> and the OSDevkit.. Ok so far so good. But I can't find a way to get a
  44. �-> 'mouse key' or 'mouse click' response on an inituition screen. I saw that
  45. �-> the there was written a 'paint-program' with the GUI extension, how the
  46. �-> hell (sorry) is it posible to allow the user to point and click on a
  47. 'free'
  48. �-> screen with no gadgets ????
  49.  
  50. �-> If this is part of the 'test-version' of the next GUI, then is it possible
  51. �-> that I could have a copy of the test-version (I'll be sure to send my
  52. �-> response to the author) ???
  53.  
  54. Here is the ASCII listing for the program. When you look through it, you
  55. will see its a very simple process!!
  56.  
  57. Mush
  58.  
  59. '**
  60. '**      $VER: Micro Paint 1.0  (09-08-97)   
  61. '**      Update Release 1.0  
  62. '**
  63. '**      Simple Paint Package  
  64. '**
  65. '**      ï¿½ Copyright 1997 Pietro Ghizzoni - Dairymen Soft
  66. '**        FreeWare      
  67. '**
  68.  
  69. Amos To Back 
  70.  
  71. Dim GR(6),CO(1) : Gui Bank 20 : WINS=2 : WIN3=3
  72. Global X,Y,X1,Y1,FUNC,GR(),WIN
  73.  
  74. Repeat : ID=Gui Asl Screen : Until ID><0 : &J1
  75.  
  76. Gui Open 2,2 : Gui Ink 1 : Gui Open 3,3 : Gui Ink 1
  77. Change 2,True : Change 3,True
  78. Loke (1,0,,$80080010),Min(Gui Asl Colours,8)
  79.  
  80. ABOUT : Gui Open 1,1 : CO(0)=1 : CO(1)=1 : FUNC=2 : Gui Set 1,0,0,1 : Gui Gfx
  81. 0,3
  82. Restore WR_DATA : For I=1 To 6 : Read GR(I) : Next 
  83.  
  84. Do 
  85.    
  86.    GAD=Gui Wait : CO=Gui Code : WIN2=WIN : WIN=Gui Window
  87.    
  88.    If WIN=1
  89.       
  90.       If GAD>0 and GAD<6 : FUNC=GAD : End If 
  91.       
  92.       If GAD=0
  93.          Gui Set 1,0,0,CO : Gui Ink CO : CO(WIN3-2)=CO
  94.          
  95.       Else If GAD=6
  96.          Gui Writing 1 : Gui Clw ,
  97.          
  98.       Else If GAD=-1
  99.          
  100.          Exit 
  101.          
  102.       End If 
  103.       
  104.    Else 
  105.       
  106.       If WIN2><WIN : Gui Gfx 0,WIN : Gui Set 1,0,0,CO(WIN-2) : End If 
  107.       X=Gui Mouse Ux : Y=Gui Mouse Uy : X1=X : Y1=Y : WIN3=WIN
  108.       
  109.       If GAD=-11
  110.          
  111.          If CO=$68
  112.             
  113.             Gui Writing GR(FUNC)
  114.             
  115.             If FUNC=1
  116.                
  117.                Repeat 
  118.                   X=Gui Mouse Ux : Y=Gui Mouse Uy : Gui Plot X,Y : EV=Gui Wait
  119.                   If EV=-12 : Gui Titles WIN,"Micro Paint Work Window
  120. X:"+Str$(X)+" Y:"+Str$(Y),"" : End If 
  121.                Until EV=-11
  122.                
  123.             Else If FUNC=2
  124.                
  125.                _LINE
  126.                
  127.             Else If FUNC=3
  128.                
  129.                _BOX
  130.                
  131.             Else If FUNC=4
  132.                
  133.                _ELLIPSE
  134.                
  135.             Else If FUNC=5
  136.                
  137.                Trap Gui Paint X,Y
  138.                If Errtrap : _REQ["Error","Not enough memory to perform
  139. operation!"] : End If 
  140.                
  141.             End If 
  142.             
  143.             
  144.          End If 
  145.          
  146.       Else If GAD=-12
  147.          
  148.          Gui Titles WIN,"Micro Paint Work Window X:"+Str$(X)+" Y:"+Str$(Y),""
  149.          
  150.       Else If GAD=-1
  151.          
  152.          A=Gui Close(WIN) : Dec WINS : Exit If WINS=0
  153.          
  154.       End If 
  155.       
  156.    End If 
  157.    
  158. Loop 
  159.  
  160. 1 : End 
  161.  
  162. Procedure _LINE
  163.    
  164.    Repeat 
  165.       
  166.       If X1<>Gui Mouse Wx or Y1><Gui Mouse Wy
  167.          Gui Draw X,Y To X1,Y1 : X1=Gui Mouse Wx : Y1=Gui Mouse Wy : Gui Draw
  168. X,Y To X1,Y1
  169.          Gui Titles WIN,"Micro Paint Work Window X:"+Str$(X1-X)+"
  170. Y:"+Str$(Y1-Y),""
  171.       End If 
  172.       
  173.    Until Gui Event=-11
  174.    Gui Writing 1 : Gui Draw X,Y To X1,Y1 : Gui Titles WIN,"Micro Paint Work
  175. Window",""
  176.    
  177. End Proc
  178. Procedure _BOX
  179.    
  180.    Repeat 
  181.       
  182.       If X1<>Gui Mouse Wx or Y1><Gui Mouse Wy
  183.          Gui Bar X2,Y2 To X3,Y3
  184.          X1=Gui Mouse Wx : Y1=Gui Mouse Wy : X2=X : X3=X1 : Y2=Y : Y3=Y1
  185.          If X1<X : X2=X1 : X3=X : End If 
  186.          If Y1<Y : Y2=Y1 : Y3=Y : End If 
  187.          Gui Bar X2,Y2 To X3,Y3
  188.          Gui Titles WIN,"Micro Paint Work Window X:"+Str$(X3-X2)+"
  189. Y:"+Str$(Y3-Y2),""
  190.       End If 
  191.       
  192.    Until Gui Event=-11
  193.    Gui Writing 1 : Gui Bar X2,Y2 To X3,Y3 : Gui Titles WIN,"Micro Paint Work
  194. Window",""
  195.    
  196. End Proc
  197. Procedure _ELLIPSE
  198.    Repeat 
  199.       
  200.       If X1<>Gui Mouse Wx or Y1><Gui Mouse Wy
  201.          Gui Ellipse X,Y,Abs(X1-X),Abs(Y1-Y) : X1=Gui Mouse Wx : Y1=Gui Mouse
  202. Wy
  203.          Gui Ellipse X,Y,Abs(X1-X),Abs(Y1-Y)
  204.          Gui Titles WIN,"Micro Paint Work Window X:"+Str$(X1-X)+"
  205. Y:"+Str$(Y1-Y),""
  206.       End If 
  207.       
  208.    Until Gui Event=-11
  209.    Gui Writing 1 : Gui Ellipse X,Y,Abs(X1-X),Abs(Y1-Y) : Gui Titles WIN,"Micro
  210. Paint Work Window",""
  211.    
  212. End Proc
  213. Procedure ABOUT
  214.    
  215.    TX=Gui Len("The BEST paint package every made! :)))") : SP=Gui Len(" ")
  216.    
  217.    For I=1 To 9
  218.       Read A$ : B$=Space$(Max((TX-Gui Len(A$))/2/SP,0))
  219.       M$=M$+B$+A$+B$+Chr$(10)
  220.    Next 
  221.    A=Gui Req("About...",M$,"Oh no... don't click me!")
  222.    
  223.    
  224.    Data "Micro Paint 1.0"
  225.    Data "�1997 Pietro Ghizzoni"
  226.    Data "Dairymen Soft"
  227.    Data ""
  228.    Data "The BEST paint package every made! :)))"
  229.    Data ""
  230.    Data "Powered by"
  231.    Data ""
  232.    Data "GUI Extension v1.63"
  233.    
  234. End Proc
  235. Procedure _REQ[T$,M$]
  236.    
  237.    A=Gui Req(T$,M$,"Ok") : Gui Beep 
  238.    
  239. End Proc
  240.  
  241. WR_DATA:
  242. Data 1,2,2,2,1,1
  243.  
  244. Andrew "Mushroom" Kellett
  245. --
  246.  Email: Andy Kellett <mushypd@redrose.net>  Team *AMOS* + IAPA Team *AMIGA*
  247.   alt.religion.amos - AMOS now on usenet! AMOS Mailinglist also mirrored
  248.  
  249.      World's Largest AMOS Homepages - http://www.mushy-pd.demon.co.uk
  250.                Official F1 Software Distributor for the USA
  251.  
  252.          Massive FTP site with AMOS/C64 and Mods/Samples + more at
  253.                             mushy-pd.dyn.ml.org
  254.